home *** CD-ROM | disk | FTP | other *** search
/ Alpha CD-ROM Bonus Pack / Alpha CD-ROM Bonus Pack.iso / life / shared.dir / 00495_Sound Play Scripts.ls < prev    next >
Encoding:
Text File  |  1995-01-16  |  301 b   |  16 lines
  1. on playThesound soundCastName
  2.   if soundCastName = EMPTY then
  3.     return 0
  4.   else
  5.     if soundBusy(1) then
  6.       puppetSound(0)
  7.     end if
  8.     set cNum to the number of cast soundCastName
  9.     if cNum > 0 then
  10.       puppetSound(soundCastName)
  11.       updateStage()
  12.       return 1
  13.     end if
  14.   end if
  15. end
  16.